perm filename DIF[DRW,LCS] blob
sn#723540 filedate 1983-08-21 generic text, type T, neo UTF8
1) DRAW.F4[DRW,LCS] and 2) DRAW.F4[E83,LCS] 8-21-83 09:25 pages 1,1
**** File 1) DRAW.F4[DRW,LCS]/1P/1L
1) C***** FOLLOWING IS FILE 'DRAW.CMD' **********
1) C*** DRAW[DRW,LCS],MSSIO[MS,LCS],CB[DRW,LCS]
1) C*** ,DRAWSM[DRW,LCS],DPYIT[DRW,LCS],DREDIT[DRW,LCS],FILLER[DRW,LCS]
1) C*** ,CURSOR[MSS,LCS],SUBSLM[DRW,LCS]
1) C 'G' OR <CR> = GET. 'A'=ADD TO COMBINED FILE.
**** File 2) DRAW.F4[E83,LCS]/1P/1L
2) C TO DO ****** OD, OS, RS, SZ(SEE SIZE FACTOR)
2) C***** FOLLOWING IS FILE 'DRAW.CMD' **********
2) C*** DRAW[DRW,LCS],MSSIO[MS,LCS],DRAWIT[DRW,LCS]
2) C*** ,DPYIT[DRW,LCS],DREDIT[DRW,LCS],FILLER[DRW,LCS]
2) C*** ,SUBSLM[DRW,LCS]
2) C 'G' OR <CR> = GET. 'A'=ADD TO COMBINED FILE.
***************
**** File 1) DRAW.F4[DRW,LCS]/1P/10L
1) C SINGLE ITEM IS RESTRICTED TO 350 WDS. 10 ITEMS OR 350 WDS PER FILE.
1) C 'O' MAKES CURRENT DPY INTO OVERLAY.
**** File 2) DRAW.F4[E83,LCS]/1P/11L
2) C SINGLE ITEM IS RESTRICTED TO 1000 WDS. 10 ITEMS OR 1000 WDS PER FILE.
2) C 'O' MAKES CURRENT DPY INTO OVERLAY.
***************
**** File 1) DRAW.F4[DRW,LCS]/1P/16L
1) C BCDE=THE X COORDINATE, B=0=POSITIVE, B=1=NEG. (THE RANGE IS + OR - 999)
**** File 2) DRAW.F4[E83,LCS]/1P/17L
2) C A=3=INVIS. AND END FILLED AREA.
2) C BCDE=THE X COORDINATE, B=0=POSITIVE, B=1=NEG. (THE RANGE IS + OR - 999)
***************
**** File 1) DRAW.F4[DRW,LCS]/1P/20L
1) COMMON /SAV/JCLEF(10),KCLEF(10),NMLST(10) /INCR/INCR
1) CIRC COMMON /RC/MCLEF(400)
1) COMMON /RC/MCLEF(400),IST(4000)
1) 1 /GRID/GRID
1) CIRC 1 /DPY/NDP,IOV,GRID
1) C NDP=BUFFER NUM FOR OUTPUT, IOV=BUFFER NUM FOR INPUT
1) DIMENSION JST(450),INP(72),V(30)
1) COMMON/ZN/SCLEF(2,400),DDD /ED/KED,NEXT,NN,NX,NY,J
1) COMMON XX(100),G(100),NJ,QF(512),RF(512),S(100),K
1) COMMON/NFF/NF(513) /LL/LL /RZ/RSZ,RJB,CENTR
1) CIRC COMMON/LETS/LETS(14) /FL/IC,N,NQ,RZ
**** File 2) DRAW.F4[E83,LCS]/1P/22L
2) COMMON /SAV/JCLEF(10),KCLEF(10),NMLST(10) /INC/INC
2) CIRC COMMON /RC/MCLEF(400)
1) DRAW.F4[DRW,LCS] and 2) DRAW.F4[E83,LCS] 8-21-83 09:25 pages 1,1
2) COMMON /RC/MCLEF(1000),IST(4000)
2) 1 /GRID/GRID /TL/JXT,JYT
2) CIRC 1 /DPY/NDP,IOV,GRID
2) C NDP=BUFFER NUM FOR OUTPUT, IOV=BUFFER NUM FOR INPUT
2) COMMON /GRD/GRD(1000)
2) DIMENSION JST(1050),INP(72),V(30),JDP(3)
2) COMMON/ZN/SCLEF(2,1000),DDD /ED/KED,NEXT,NN,NX,NY,J
2) COMMON XX(100),G(100),NJ,QF(512),RF(512),S(100),K
2) COMMON/NFF/NF(513) /LL/LL /RZ/RSZ,RJB,CENTR,XSZ
2) CIRC COMMON/LETS/LETS(14) /FL/IC,N,NQ,RZ
***************
**** File 1) DRAW.F4[DRW,LCS]/1P/35L
1) 1'O','L','W','H','Q'/, ISIZE/2000/, RJB/-20./,CENTR/-26./
1) EQUIVALENCE (MM,SCLEF(1,1)),(V2,V(2)),(V3,V(3)),(N,INP),
**** File 2) DRAW.F4[E83,LCS]/1P/38L
2) 1'O','L','W','H','Q'/, ISIZE/2000/, RJB/0./,CENTR/0./
2) CCRMA 1'O','L','W','H','Q'/, ISIZE/2000/, RJB/-20./,CENTR/-26./
2) EQUIVALENCE (MM,SCLEF(1,1)),(V2,V(2)),(V3,V(3)),(N,INP),
***************
**** File 1) DRAW.F4[DRW,LCS]/1P/52L
1) CALL HYDPOG(1)
1) C IF AN OVERLAY HAS BEEN SETUP IT SHOULD STILL DISPLAY AFTER DPYCLR.
**** File 2) DRAW.F4[E83,LCS]/1P/56L
2) CALL DPYSET(5,JDP,3)
2) CALL HYDPOG(1)
2) JXT=-220
2) JYT=-480
2) 3939 CALL TYPLOC(JXT,JYT)
2) C IF AN OVERLAY HAS BEEN SETUP IT SHOULD STILL DISPLAY AFTER DPYCLR.
***************
**** File 1) DRAW.F4[DRW,LCS]/1P/62L
1) 55 FORMAT(I,2F)
1) 50 FORMAT(72A1)
1) 500 XSZ=RSZ
1) ACCEPT 50,INP
**** File 2) DRAW.F4[E83,LCS]/1P/70L
2) CALL DPY
2) 55 FORMAT(I,2F)
2) 50 FORMAT(72A1)
2) 500 QSZ=RSZ
2) ACCEPT 50,INP
***************
1) DRAW.F4[DRW,LCS] and 2) DRAW.F4[E83,LCS] 8-21-83 09:25 pages 1,1
**** File 1) DRAW.F4[DRW,LCS]/1P/70L
1) 51 IF(RSZ.EQ.0)RSZ=XSZ
1) C TO SAVE SIZE FACTOR WHEN REDRAWING.
**** File 2) DRAW.F4[E83,LCS]/1P/79L
2) 51 IF(RSZ.EQ.0)RSZ=QSZ
2) C TO SAVE SIZE FACTOR WHEN REDRAWING.
***************
**** File 1) DRAW.F4[DRW,LCS]/1P/76L
1) IF(RSZ.EQ.0)RSZ=9.0
1) IF(GRID.NE.0.AND.N.NE.LP)CALL GRIDS
**** File 2) DRAW.F4[E83,LCS]/1P/85L
2) IF(RSZ.EQ.0)RSZ=5.0
2) C XSZ=RSZ*418./580.
2) XSZ=RSZ
2) IF(GRID.NE.0.AND.N.NE.LP)CALL GRIDS
***************
**** File 1) DRAW.F4[DRW,LCS]/1P/89L
1) 16 TYPE 100
1) C 'HELP'
1) GO TO 91
**** File 2) DRAW.F4[E83,LCS]/1P/100L
2) 16 CALL DPYCLR
2) CALL TYPLOC(320,-320)
2) TYPE 100
2) C 'HELP'
2) TYPE 101
2) ACCEPT 50,INP
2) CALL TYPLOC(JXT,JYT)
2) CALL DP(1)
2) CC CALL DPYOUT(1)
2) GO TO 91
***************
**** File 1) DRAW.F4[DRW,LCS]/1P/106L
1) CIRC13 OPEN(UNIT=1,FILE=JC)
1) 13 CALL IFILE (1,JC)
1) N=1
1) C LM=M FOR READMORE
1) IF(KK.EQ.LM)N=MCLEF(1)
1) C GET WORD COUNT OF RESIDENT PICTURE
1) 14 READ(1,5,END=15)K,JC,JS,JZ
1) DRAW.F4[DRW,LCS] and 2) DRAW.F4[E83,LCS] 8-21-83 09:25 pages 1,1
1) C READ IN EDIT FILE OF COORDS. K, X, Y, Z (K IS COUNT NUMB.)
1) N=N+1
1) JZ=JZ*100000000
1) C JZ=1=INVIS =2=START FILLER (INVIS)
1) CALL REPACK(JC,JS,JZ,MCLEF(N))
1) GO TO 14
1) 15 MCLEF(1)=N
1) CIRC CALL DPYCLR
1) IST2=0
1) CALL DPYSET(1,IST,4000)
1) GO TO 334
1) 33 IF(JS.NE.LLL)GO TO 38
1) N=LZ
1) C DEL=DELETE FROM COMB. FILE. (JS=LLL)
1) GO TO 36
1) 38 KED=N
1) MM=MCLEF(1)
1) IF(MM.NE.0)GO TO 92
1) C ADD TO DRAWING?
1) GO TO 3
1) CIRC56 CALL DPYSET(400,2)
1) 56 CALL POG2
1) C INITIALIZE THE OVERLAY
**** File 2) DRAW.F4[E83,LCS]/1P/124L
2) 13 CALL READIN(JC,JS,JZ,KK)
2) GO TO 334
2) CIRC56 CALL DPYSET(400,2)
2) CCRMA56 CALL POG2
2) C INITIALIZE THE OVERLAY
***************
**** File 1) DRAW.F4[DRW,LCS]/1P/141L
1) CALL RDRAW(3,2,MCLEF(1),MCLEF)
1) CIRC IOV=1
**** File 2) DRAW.F4[E83,LCS]/1P/134L
2) 56 IF(JC.NE.LD)GO TO 256
2) CALL HYDPOG(3)
2) GO TO 91
2) C O=OVERLAY, OD=OVERLAY DISAPPEARS, OS=SEE OVERLAY
2) 256 IF(JC.NE.LS)GO TO 156
2) 257 CALL DPYOUT(3)
2) GO TO 91
2) 156 CALL DPYSET(3,GRD,400)
2) CALL RDRAW(3,2,MCLEF(1),MCLEF)
2) CALL DPYOUT(3)
2) CIRC IOV=1
***************
1) DRAW.F4[DRW,LCS] and 2) DRAW.F4[E83,LCS] 8-21-83 09:25 pages 1,1
**** File 1) DRAW.F4[DRW,LCS]/1P/146L
1) 36 CALL CMBN
1) GO TO 91
1) 32 IF(JC.EQ.LE.OR.JC.EQ.LM)GO TO 12
1) C RE=READ EDIT FILE FOR VECTORS
1) CALL DPYSET(1,IST,4000)
1) IST2=0
1) CALL SHIFT(MCLEF(2),MCLEF(1),N)
**** File 2) DRAW.F4[E83,LCS]/1P/149L
2) 36 IF(JC.NE.LZ)GO TO 136
2) C SZ=SHOW CURRENT SIZE FACTOR
2) K=RSZ
2) TYPE 55,K
2) GO TO 91
2) 136 CALL CMBN
2) GO TO 91
2) 32 IF(JC.EQ.LS)GO TO 39
2) IF(JC.EQ.LE.OR.JC.EQ.LM)GO TO 12
2) C RE=READ EDIT FILE FOR VECTORS, RM=READ MORE, RS=RESTART (SAME AS Z)
2) CALL DPSET
2) CALL SHIFT(MCLEF(2),MCLEF(1),N)
***************
**** File 1) DRAW.F4[DRW,LCS]/1P/158L
1) 30 REREAD 291,NM,NM
1) CALL LO2UP(NM)
**** File 2) DRAW.F4[E83,LCS]/1P/168L
2) 30 IF(JC.NE.'R')GO TO 300
2) GRID=1
2) CALL GRIDS
2) C 'GR'=DRAW GRID
2) GO TO 91
2) 300 REREAD 291,NM,NM
2) CALL LO2UP(NM)
***************
**** File 1) DRAW.F4[DRW,LCS]/1P/193L
1) IF(IC.GT.350)TYPE 1110
1) 60 JZ=1
**** File 2) DRAW.F4[E83,LCS]/1P/208L
2) IF(IC.GT.1000)TYPE 1110
2) 60 JZ=1
***************
1) DRAW.F4[DRW,LCS] and 2) DRAW.F4[E83,LCS] 8-21-83 09:25 pages 1,1
**** File 1) DRAW.F4[DRW,LCS]/1P/206L
1) 7 IF(MORE)GO TO 70
1) DO 771 K=2,JM-1
1) 771 IF(MCLEF(K).GE.200000000)GO TO 772
1) GO TO 70
1) C PUTS FILLER TO END
1) C MOVES OUTLINE UP FRONT
1) 772 M=MCLEF(1)
1) DO 773 L=K,JM
1) M=M+1
1) 773 MCLEF(M)=MCLEF(L)
1) K=JM-K
1) 1774 DO 774 L=JM,M
1) 774 MCLEF(L-K)=MCLEF(L)
1) CALL DPYSET(1,IST,4000)
1) IST2=0
1) GO TO 3
1) 70 IF(N.NE.LP)GO TO 3
**** File 2) DRAW.F4[E83,LCS]/1P/221L
2) 7 IF(MORE.LT.0)GO TO 70
2) CX DO 771 K=2,JM-1
2) CX771 IF(MCLEF(K).GE.200000000)GO TO 772
2) CX GO TO 70
2) 772 IF(MCLEF(JZ).LT.200000000)MCLEF(JZ)=MCLEF(JZ)+200000000
2) C STOP FILLER ON FIRST POINT WITH 'GM' (UNLESS TO BE FILLED)
2) 70 IF(N.NE.LP)GO TO 3
***************
**** File 1) DRAW.F4[DRW,LCS]/1P/243L
1) GO TO 436
1) 338 IC=-1
**** File 2) DRAW.F4[E83,LCS]/1P/248L
2) CCRMA GO TO 436
2) GO TO 91
2) 338 IC=-1
***************
**** File 1) DRAW.F4[DRW,LCS]/1P/266L
1) GO TO 436
1) 206 RR=RSZ
1) DO 205 J=IC,MCLEF(1)
1) CALL UNPACK(M,N,LL,MCLEF(J))
1) KK=KK+1
**** File 2) DRAW.F4[E83,LCS]/1P/274L
2) CCRMA GO TO 436
1) DRAW.F4[DRW,LCS] and 2) DRAW.F4[E83,LCS] 8-21-83 09:25 pages 1,1
2) GO TO 91
2) C206 RR=RSZ
2) 206 IFIL=0
2) C 0=CONINUOUS LINE, 1=JUMP, 2=JUMP, START FILL, 3=JUMP, END FILL
2) DO 205 J=IC,MCLEF(1)
2) CALL UNPACK(M,N,LL,MCLEF(J))
2) IF(LL.EQ.200000000)IFIL=-1
2) C START FILL
2) IF(LL.EQ.300000000)IFIL=0
2) C END FILL
2) IF(IFIL.EQ.0)GO TO 205
2) KK=KK+1
***************
**** File 1) DRAW.F4[DRW,LCS]/1P/273L
1) QF(KK)=(M+RJB)*RR
1) 205 RF(KK)=(N+CENTR)*RR
1) NF(1)=KK
**** File 2) DRAW.F4[E83,LCS]/1P/290L
2) C PUT ONLY "FILL" VECTORS INTO QF AND RF ARRAYS
2) QF(KK)=(M+RJB)*XSZ
2) RF(KK)=(N+CENTR)*RSZ
2) 205 CONTINUE
2) NF(1)=KK
***************
**** File 1) DRAW.F4[DRW,LCS]/1P/279L
1) 5 FORMAT(12I)
1) 100 FORMAT(' G=GET, GM=GET MORE, S=SAVE, D=DRAW, M=MOVE, R=ROTATE,'/
1) 1' E=EDIT, P=PLOT, RE=READ EDIT FILE, W=WRITE EDIT FILE'/
1) 1' LI=LIST COORDINATES'/
1) 1,' DEL=DELETE ITEM FROM FILE, O=OVERLAY, Z=ZERO DRAWING'/,
1) 1' F=FILL N1=IMAGE SIZE, N2=1=GRID -1=DELETE OVERLAY'/)
1) C N1=20 TO CHANGE SHAPE
1) CIRC92 CALL DPYCLR
1) C92 CALL HYDPOG(1)
1) 92 CALL DPYSET(1,IST,4000)
1) CIRC CALL RDRAW(2,MCLEF(1),MCLEF)
**** File 2) DRAW.F4[E83,LCS]/1P/298L
2) 100 FORMAT(' G=GET, GM=GET MORE, S=SAVE, D=DRAW, M=MOVE, R=ROTATE,'/
2) 1' E=EDIT, P=PLOT, RE=READ EDIT FILE, W=WRITE EDIT FILE'/
2) 1' RM=READ MORE'/
2) 1' GR=MAKE GRID, LI=LIST COORDINATES, Q=REPEAT LAST MOVE'/
2) 1,' REN=RENAME ITEM IN LIBRARY, O=OVERLAY'/
2) 1,' OD=MAKE OVERLAY DISAPPEAR, OS=SEE OVERLAY'/
2) 1,' DEL=DELETE ITEM FROM FILE, Z=ZERO DRAWING'/,
1) DRAW.F4[DRW,LCS] and 2) DRAW.F4[E83,LCS] 8-21-83 09:25 pages 1,1
2) 1' F=FILL N1=IMAGE SIZE, N2=1=GRID -1=DELETE OVERLAY'/)
2) 101 FORMAT(' **** IN DRAW MODE ****'/
2) 1,' B=BACKUP, RE=RELATIVE VECTORS, AB=ABSOLUTE VECTORS'/
2) 1,' C=CLOSE THE AREA 0,0 IS CENTER OF SCREEN'/
2) 1,' AFTER X,Y COORDS YOU MAY ENTER 1, 2, OR 3.'/
2) 1,' 1=JUMP (INVISIBLE VECTOR), 2=JUMP AND START FILL'/
2) 1,' 3=JUMP AND STOP FILL.'/
2) 1,' THE FOLLOWING MOVE THE LAST ENTERED POINT:'/
2) 1,' LN=MOVE LEFT N STEPS RN=MOVE RIGHT N STEPS'/
2) 1,' UN=UP N STEPS DN=DOWN N STEPS (N IS "STICKY")'//
2) 1,' **** IN EDIT MODE ****'/
2) 1,' B=BACKUP, A=ALTER, I=INSERT, M N1 N2=MOVE POINTS N1-N2'/
2) 1,' J=JUMP TO END OF NEXT INVISIBLE VECTOR'/
2) 1,' IN ALTER OR INSERT MODE:'/
2) 1,' J=JUMP, F=JUMP AND START FILL, C=CONTINUE(ERASE JUMP)'/
2) 1,' S=JUMP AND STOP FILL, N=NO, Y=YES, B=BACKUP'//
2) 1,' TYPE <CR> TO CONTINUE.'/)
2) C N1=20 TO CHANGE SHAPE
2) 33 IF(JS.NE.LLL)GO TO 38
2) N=LZ
2) C DEL=DELETE FROM COMB. FILE. (JS=LLL)
2) GO TO 36
2) 38 KED=N
2) MM=MCLEF(1)
2) CX IF(MM.NE.0)GO TO 92
2) C ADD TO DRAWING?
2) CIRC92 CALL DPYCLR
2) C92 CALL HYDPOG(1)
2) 92 CALL DPSET
2) CIRC CALL RDRAW(2,MCLEF(1),MCLEF)
***************
**** File 1) DRAW.F4[DRW,LCS]/1P/301L
1) 1 ' ***** WARNING - LIMIT=350 ******',/
1) 1 ' ********************************')
1) END
**** File 2) DRAW.F4[E83,LCS]/1P/346L
2) 1 ' ***** WARNING - LIMIT=1000 ******',/
2) 1 ' ********************************')
2) END
2) SUBROUTINE DPY
2) COMMON /RC/MCLEF(1000),IST1,IST2
2) CCC COMMON /DP/ISET /RC/MCLEF(400),IST1,IST2
2) CALL SETPOG(1)
2) CALL DP(1)
2) CC ISET=IST2
2) C SAVE DPY WDCNT
1) DRAW.F4[DRW,LCS] and 2) DRAW.F4[E83,LCS] 8-21-83 09:25 pages 1,1
2) END
2) SUBROUTINE DPSET
2) COMMON /RC/MCLEF(1000),IST(4000) /TL/JXT,JYT
2) CALL DPYSET(1,IST,4000)
2) CALL TYPLOC(JXT,JYT)
2) END
2) SUBROUTINE SETCUR(J,K,L)
2) C COMMON /DP/ISET /RC/MCLEF(400),IST1,IST2
2) DIMENSION I(50)
2) DATA LIM/490/
2) CALL DPYSET(4,I,50)
2) CALL HYDPOG(4)
2) ISET=IST2
2) JQ=J
2) KQ=K
2) IF(JQ.GT.LIM)JQ=LIM
2) IF(JQ.LT.-LIM)JQ=-LIM
2) IF(KQ.GT.LIM)KQ=LIM
2) IF(KQ.LT.-LIM)KQ=-LIM
2) JA=JQ-20
2) JB=JQ+20
2) KA=KQ-20
2) KB=KQ+20
2) C CALL AIVECT(JA,KA)
2) C CALL AVECT(JB,KB)
2) C CALL AIVECT(JA,KB)
2) C CALL AVECT(JB,KA)
2) CALL ALINE(JA,KA,JB,KB)
2) CALL ALINE(JA,KB,JB,KA)
2) CC CALL DPYOUT(4)
2) CALL DP(4)
2) END
2) SUBROUTINE DP(J)
2) CALL DPYOUT(J)
2) CC CALL DPYOUT(5)
2) C SO TYPE OUT WILL APPEAR
2) DO 1 K=1,50
2) 1 CONTINUE
2) END
2) SUBROUTINE READIN(JC,JS,JZ,KK)
2) COMMON /RC/MCLEF(1000),IST(4000) /FL/IC,N
2) CIRC13 OPEN(UNIT=1,FILE=JC)
2) 13 CALL IFILE (1,JC)
2) 5 FORMAT(12I)
2) N=1
2) C LM=M FOR READMORE
2) IF(KK.EQ.'M')N=MCLEF(1)
2) C GET WORD COUNT OF RESIDENT PICTURE
1) DRAW.F4[DRW,LCS] and 2) DRAW.F4[E83,LCS] 8-21-83 09:25 pages 1,1
2) 14 READ(1,5,END=15)K,JC,JS,JZ
2) C READ IN EDIT FILE OF COORDS. K, X, Y, Z (K IS COUNT NUMB.)
2) N=N+1
2) JZ=JZ*100000000
2) C JZ=1=INVIS =2=START FILLER (INVIS)
2) CALL REPACK(JC,JS,JZ,MCLEF(N))
2) GO TO 14
2) 15 MCLEF(1)=N
2) CIRC CALL DPYCLR
2) CALL DPSET
2) END
2) SUBROUTINE CLRCUR
2) CALL HYDPOG(4)
2) END
2) SUBROUTINE RDCUR
2) END
***************